home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / grab des pha dis (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  31.7 KB  |  849 lines
  1. 0 rem *** pharaos grave v.2 ***
  2. 1 rem      by w.rausch
  3. 2 rem      moerikeweg 73
  4. 3 rem      8504 stein
  5. 5 a1$=""
  6. 6 a2$=""
  7. 7 a3$=""
  8. 8 a4$=""
  9. 9 print"":v=53248:si=54272:pokev+21,0:poke657,128
  10. 10 fori=832to865:reada:pokei,a:next
  11. 11 data120,169,51,133,1,169,0,133,95
  12. 12 data133,90,133,88,169,208,133,96,169,240,133,89,169,224,133,91,32,191,163
  13. 13 data169,55,133,1,88,96
  14. 15 sys832:poke850,160:sys832:poke56576,peek(56576)and252:poke53272,8
  15. 16 poke648,192
  16. 20 goto10000
  17. 22 print"scratch grab":open1,8,15,"s:grab":close1
  18. 24 save"grab",8:verify"grab",8:list22-24
  19. 30 dim pn(58,6),it$(54),in(46,3),co$(18)
  20. 40 fori=1to18:readco$(i):next
  21. 50 fori=1to54:readit$(i):next
  22. 55 return
  23. 60 fori=866to895:reada:pokei,a:next:ifkk=1thenreturn
  24. 65 fori=1to58
  25. 70 readpn(i,1),pn(i,2),pn(i,3),pn(i,4),pn(i,5),pn(i,6)
  26. 80 next
  27. 90 fori=1to46
  28. 100 readin(i,1),in(i,2),in(i,3)
  29. 110 next
  30. 130 return
  31. 150 ap=1
  32. 155 poke53280,11:poke53281,0
  33. 160 print"":pokev+21,0:pokev+17,peek(v+17)and239:gosub19000
  34. 164 poke214,15:sys58640:print"{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}"
  35. 165 pokev+17,peek(v+17)or16
  36. 170 print"moegliche richtungen :";
  37. 174 fori=1to6
  38. 175 ifpn(ap,i)>0thenonigosub179,180,181,182,184,185
  39. 176 next:goto210
  40. 179 print" w";:return
  41. 180 print" o";:return
  42. 181 print" n";:return
  43. 182 print" s";:return
  44. 184 print" h";:return
  45. 185 print" r":return
  46. 210 printa1$"besonderheiten: ";:n=0
  47. 220 fori=1to46
  48. 222 ifn>0andin(i,1)=apandin(i,3)=1thenprint""it$(i)
  49. 230 ifin(i,1)=apandn=0andin(i,3)=1thenprintit$(i):n=1
  50. 240 next
  51. 242 ifap=35andx8=1then50100
  52. 245 ifap=16andin(14,1)=-1andin(15,1)>0then50800
  53. 246 ifap=53andin(45,1)=-1then50720
  54. 247 ifap=50andin(46,1)<>-1then50207
  55. 250 printa3$:input"kommando ";b$
  56. 260 fori=1to18
  57. 270 ifleft$(b$,4)=left$(co$(i),4)then300
  58. 280 next
  59. 300 ifap=41andin(41,1)<>-1orap=42andin(41,1)<>-1thengosub52000
  60. 310 ifc=3then50208
  61. 410 ifap=24thengoto50204
  62. 500 ifi<>1then730
  63. 510 gosub5540
  64. 530 goto550
  65. 540 goto5530
  66. 550 ifap=2orap=3thenx1=x1+1
  67. 560 ifx1=2thengoto50190
  68. 570 ifap=10andin(6,1)=-1then5530
  69. 590 ifap=19anda$="r"andin(9,1)<>19thengoto50203
  70. 610 ifap=31anda$="s"thengoto50202
  71. 620 ifap=48anda$="s"orap=44anda$="w"then50206
  72. 630 ifap=35andin(14,1)<>apthen50100
  73. 640 ifap=37anda$="o"andin(30,1)=37thenap=41:goto5500
  74. 645 ifap=37andin(30,1)<>37anda$="o"then50200
  75. 650 ifap=50anda$="w"andin(31,1)<>0then5530
  76. 655 ifap=38anda$="n"andin(28,1)=0andin(46,1)<>-1then50207
  77. 660 ifa$="w"andpn(ap,1)<>0thenap=pn(ap,1):goto5500
  78. 670 ifa$="o"andpn(ap,2)<>0thenap=pn(ap,2):goto5500
  79. 680 ifa$="n"andpn(ap,3)<>0thenap=pn(ap,3):goto5500
  80. 690 ifa$="s"andpn(ap,4)<>0thenap=pn(ap,4):goto5500
  81. 700 ifa$="h"andpn(ap,5)<>0thenap=pn(ap,5):goto5500
  82. 710 ifa$="r"andpn(ap,6)<>0thenap=pn(ap,6):goto5500
  83. 720 goto5530
  84. 730 ifi<>2then830
  85. 735 ifin(1,1)<>-1then5530
  86. 739 x2=x2+1:ifx2>5then5475
  87. 740 gosub5540
  88. 770 ifap=7andin(3,1)=0andin(4,1)=apanda$="einga"thenin(4,1)=0:goto5410
  89. 780 ifap=13anda$="tuer"thengoto50211
  90. 790 ifap=13anda$="wand"andin(11,1)=0thenin(11,1)=13:goto5420
  91. 800 ifap=21andin(16,1)>0anda$=it$(16)thenin(16,1)=0:goto5500
  92. 810 ifap=54andin(40,1)>0anda$="ausga"thengoto49000
  93. 820 goto5530
  94. 830 ifi<>3then940
  95. 840 gosub5540:gosub5000
  96. 850 ifx<>32andx<>40andx<>38thengoto5530
  97. 860 ifx<>32then920
  98. 870 ifap=15thenpn(15,3)=16:in(13,1)=0:goto5500
  99. 875 ifap=13then50211
  100. 880 ifap=21andin(16,1)=0thenpn(21,3)=22:in(17,1)=0:goto5500
  101. 881 ifap=25andin(43,1)=25thenin(43,1)=0:pn(25,4)=19:in(42,1)=0:pn(19,3)=25:goto5500
  102. 882 ifap=31andx5=1andin(23,1)=apthenin(23,1)=0:pn(31,3)=32:goto5500
  103. 890 ifap=21andin(16,1)>0then50213
  104. 895 ifx5=1andap=31thenpn(ap,3)=32:in(31,1)=0:goto5500
  105. 900 ifap=45thenpn(45,3)=50:in(28,1)=0:goto5500
  106. 905 ifap=42thenpn(42,3)=40:in(26,1)=0:goto5500
  107. 906 ifap=47andpn(ap,3)=0thenpn(ap,3)=52:in(36,1)=0:goto5500
  108. 910 ifap=38thenpn(38,3)=50:in(28,1)=0:goto5500
  109. 920 ifap=50thenpn(50,1)=44:in(31,1)=0:goto5500
  110. 925 ifap=53andy3=0andx=38theny3=1:goto50700
  111. 926 ifap=57andx=40andy4=0andin(44,1)=-1thenin(41,1)=ap:y4=1:goto5458
  112. 930 goto5530
  113. 940 ifi<>4then1130
  114. 950 gosub5540
  115. 955 ifap<8ora$<>it$(53)thengoto5530
  116. 960 printa2$:input"welche: w o n s   ";c$
  117. 970 ifap=13andin(11,1)=0andc$="o"thengoto5430
  118. 980 ifap<>13orap=13andc$<>"o"then1100
  119. 1000 goto5530
  120. 1100 printa3$"nichts passiert       ":gosub5800:gosub5900:goto164
  121. 1130 ifi<>5then1180
  122. 1140 gosub5540
  123. 1150 gosub5000
  124. 1160 ifap=5andx=2andin(x,1)>0thenin(2,1)=0:in(x,2)=0:goto5400
  125. 1170 goto5530
  126. 1180 ifi<>6then1220
  127. 1182 ifin(1,1)<>-1then5530
  128. 1183 x2=x2+1:ifx2>5then5475
  129. 1185 gosub5540:gosub5000
  130. 1200 ifap=7andin(x,1)=apandin(x,1)>0thenin(x,1)=0:in(4,3)=1:goto5500
  131. 1210 goto5530
  132. 1220 ifi<>7then1270
  133. 1230 gosub5540:gosub5000
  134. 1240 ifx<>15andx<>5then5530
  135. 1250 ifap=16andin(x,1)=apthenin(x,1)=0:goto5500
  136. 1255 ifap=35andx=5then50100
  137. 1260 goto5530
  138. 1270 ifi<>8then1320
  139. 1280 gosub5540
  140. 1285 ifap=7andin(4,1)=0anda$=left$(it$(11),5)thenap=8:goto5500
  141. 1290 ifap=13anda$=left$(it$(51),5)andin(11,1)=apthenap=14:goto5500
  142. 1300 ifap=14anda$=left$(it$(51),5)thenap=13:goto5500
  143. 1310 goto5530
  144. 1320 ifi<>9then1360
  145. 1330 gosub5540:gosub5000
  146. 1335 ifx<>9andin(x,1)<>-1then5530
  147. 1340 ifap=51andpn(ap,5)=0thenpn(ap,5)=54:in(x,1)=ap:goto5440
  148. 1345 ifap=37thenin(x,1)=0:goto5470
  149. 1350 goto5530
  150. 1360 ifi<>10then1410
  151. 1370 gosub5540
  152. 1375 ifap=27then1395
  153. 1376 gosub5000
  154. 1390 ifap=40andy2=0andin(x,1)=aptheny2=1:in(35,1)=ap:pn(40,3)=47:goto5450
  155. 1395 ifap=27anda$="grabr"andin(46,3)=0thenin(46,3)=1:goto5480
  156. 1400 goto5530
  157. 1410 ifi<>11then1460
  158. 1420 gosub5540:gosub5000
  159. 1430 ifap=10andx=7andin(6,1)=-1then50206
  160. 1440 ifap=52andx=37andin(34,1)=apthenpn(52,3)=53:in(34,1)=0:goto1680
  161. 1450 goto5530
  162. 1460 ifi<>12then1510
  163. 1470 gosub5540
  164. 1490 ifx4=1thenap=54:goto5500
  165. 1500 goto5530
  166. 1510 ifi<>13then1580
  167. 1520 gosub5540
  168. 1525 ifge>=3then5460
  169. 1530 gosub5000
  170. 1535 ifap=16andx=14thenin(x,1)=-1:in(15,3)=1:goto5500
  171. 1536 ifap=10andx=6thenin(7,3)=1
  172. 1540 ifin(x,1)=apandin(x,2)>0thenin(x,1)=-1:goto5500
  173. 1550 ifin(x,2)=0then5530
  174. 1560 ifin(x,1)<>apthenprinta3$"nicht vorhanden":gosub5800:gosub5900:goto164
  175. 1570 goto5530
  176. 1580 ifi<>14then1640
  177. 1590 gosub5540
  178. 1600 gosub5000
  179. 1610 ifin(x,1)<>-1thenprinta3$"ich habe das nicht":gosub5800:gosub5900:goto164
  180. 1612 ifap=19anda$="seil"andin(9,1)=-1thengosub5455:goto1620
  181. 1615 ifap=31anda$="diama"andin(x,1)=-1thenx5=1:gosub5465:in(20,2)=0:in(20,3)=0:goto1620
  182. 1620 in(x,1)=ap:goto5500
  183. 1640 ifi<>15then1700
  184. 1650 gosub5540:gosub5000
  185. 1655 ifx<>7then5530
  186. 1660 ifap=10andin(6,1)=-1andx9=0thenpn(ap,1)=11:in(8,1)=0:x9=1:goto1680
  187. 1670 goto5530
  188. 1680 printa3$"die "it$(32)" oeffnet sich":gosub5800:goto160
  189. 1700 ifi<>16then1750
  190. 1710 goto30000
  191. 1750 ifi<>17then1800
  192. 1755 goto34000
  193. 1800 ifi<>18then1900
  194. 1810 pokev+21,0:printchr$(14),"Sie wollen aufgeben (J/N) ?"
  195. 1820 geta$:ifa$="j"thensys64738
  196. 1830 ifa$="n"thenprintchr$(142):gosub5600:goto160
  197. 1840 ifa$=""ora$=" "then1820
  198. 1900 printa4$"unbekanntes wort":gosub5800
  199. 1910 printa3$"                 ":printa4$"                        ":goto164
  200. 5000 forx=1to46
  201. 5010 ifleft$(a$,5)=left$(it$(x),5)thenreturn
  202. 5020 next
  203. 5030 printa4$;tab(20)"unbekanntes wort":fort=1to1000:next
  204. 5035 gosub5900
  205. 5040 x=0:goto164
  206. 5400 printa3$"gehe in richtung des "it$(50)"":gosub5800
  207. 5401 pn(5,2)=6:goto160
  208. 5410 printa3$"durchgang in der mauer":in(4,1)=0:x6=1:gosub5800:goto5500
  209. 5420 printa3$"ein "it$(51)" wird sichtbar":gosub5800:goto160
  210. 5430 printa3$"es klingt hohl           ":gosub5800:goto160
  211. 5440 printa3$""it$(9)" hat sich oben verfangen":x4=1:gosub5800:goto160
  212. 5450 printa3$"ein "it$(11)" wird sichtbar":gosub5800:goto160
  213. 5455 printa3$""it$(9)" haengt hinunter":gosub5800:return
  214. 5458 printa3$"er enthaelt eim "it$(41)"":gosub5800:goto160
  215. 5460 printa3$"sie koennen nicht so viel tragen":gosub5800:goto160
  216. 5465 printa3$""it$(20)" ist das fehlende "it$(52)" der "it$(6)"":gosub5800:return
  217. 5470 printa3$""it$(9)" ist hinuntergefallen":gosub5800:goto160
  218. 5475 printa3$""right$(it$(1),5)" ist jetzt stumpf":gosub5800:gosub5900:goto164
  219. 5480 printa3$"er trug eine "it$(46)" bei sich":gosub5800:goto160
  220. 5500 gosub5900
  221. 5510 printa4$"in ordnung":fort=1to1000:next:ifi=13thenge=ge+1
  222. 5520 ifi=14thenge=ge-1
  223. 5525 gosub5600:goto160
  224. 5530 gosub5900
  225. 5535 printa4$"nicht moeglich":fort=1to1000:next:printa4$"               ":goto164
  226. 5540 printa4$;tab(25):inputa$:a$=left$(a$,5):return
  227. 5600 pokev+21,0:pokev+28,0:pokev+23,0:pokev+29,0:return
  228. 5800 fort=1to3000:next:return
  229. 5900 printa3$"                                       "
  230. 5910 printa4$"                                      ":return
  231. 10000 ad=57344
  232. 10010 readx:ifx=-1thengoto45000
  233. 10020 cg=ad+x*8:fori=0to7:readq:pokecg+i,q:next:goto10010
  234. 10110 data28,252,243,207,63,255,255,255,255
  235. 10120 data30,255,255,255,255,252,243,207,63
  236. 10130 data31,255,255,255,255,255,255,15,240
  237. 10140 data33,255,255,255,255,15,240,255,255
  238. 10150 data35,255,255,15,240,254,254,254,254
  239. 10160 data36,0,31,227,252,254,254,254,254
  240. 10170 data37,255,255,255,255,63,207,243,252
  241. 10180 data38,63,207,243,252,255,255,255,255
  242. 10190 data39,0,248,199,63,127,127,127,127
  243. 10200 data40,255,255,240,15,255,255,255,255
  244. 10210 data41,255,255,255,255,240,14,254,254
  245. 10220 data42,255,255,255,255,255,255,240,15
  246. 10230 data43,254,253,251,247,239,223,191,127
  247. 10240 data44,254,254,254,254,254,254,254,254
  248. 10250 data45,127,127,127,127,127,127,127,127
  249. 10260 data46,255,255,255,255,255,255,255,255
  250. 10270 data47,0,255,255,255,255,255,255,255
  251. 10280 data48,0,254,254,254,254,254,254,254
  252. 10290 data49,0,127,127,127,127,127,127,127
  253. 10300 data50,127,191,223,239,247,251,253,254
  254. 10400 data51,239,239,239,239,239,223,191,127
  255. 10410 data52,224,239,239,239,239,239,239,239
  256. 10420 data53,239,239,239,143,47,239,239,239
  257. 10430 data54,0,239,239,239,239,239,239,239
  258. 10440 data55,254,254,254,254,254,224,235,239
  259. 10450 data56,255,255,255,255,255,255,95,241
  260. 10460 data57,254,254,254,254,0,254,254,254
  261. 10470 data27,239,239,239,239,239,239,239,224
  262. 10480 data59,239,239,239,239,247,251,253,254
  263. 10490 data60,239,239,239,239,239,239,239,15
  264. 10500 data61,239,239,227,233,236,239,239,239
  265. 10510 data62,239,239,239,239,15,239,239,239
  266. 10520 data29,15,239,239,239,239,239,239,239
  267. 10530 data64,127,127,127,127,0,127,127,127
  268. 10540 data65,255,255,255,255,255,15,239,239
  269. 10550 data67,0,255,255,0,0,0,0,0
  270. 10560 data68,239,239,239,239,239,239,239,239
  271. 10570 data69,254,254,254,254,254,254,240,15
  272. 10580 data70,239,239,239,239,240,239,239,239
  273. 10590 data71,254,254,254,254,254,254,254,0
  274. 10600 data72,127,127,127,127,127,127,127,0
  275. 10610 data73,15,240,255,255,255,255,255,255
  276. 10620 data74,240,15,255,255,255,255,255,255
  277. 10630 data75,255,170,255,170,255,170,255,170
  278. 10640 data76,85,85,85,85,85,87,95,255
  279. 10650 data77,85,85,85,87,127,255,255,255
  280. 10660 data78,85,85,85,85,245,255,255,255
  281. 10670 data79,85,85,85,85,85,245,255,255
  282. 10680 data80,85,85,85,85,85,85,245,255
  283. 10685 data81,63,207,243,252,254,254,254,254
  284. 10690 data82,254,254,254,254,15,240,255,255
  285. 10695 data83,127,255,15,240,255,255,255,255
  286. 10700 data84,252,242,206,62,254,254,254,254
  287. 10705 data85,254,254,254,254,252,243,207,63
  288. 10710 data86,255,255,255,255,252,242,206,62
  289. 10715 data87,255,255,255,255,240,14,254,254
  290. 10720 data88,254,254,254,254,254,254,240,15
  291. 10725 data89,254,254,240,15,255,255,255,255
  292. 10730 data90,126,190,222,238,246,250,252,254
  293. 10735 data91,127,127,127,127,63,207,243,252
  294. 10740 data92,14,240,255,255,255,255,255,255
  295. 10745 data93,96,99,105,108,110,110,110,110
  296. 10750 data94,6,198,150,54,118,118,118,118
  297. 10755 data95,110,110,110,110,110,110,110,110
  298. 10760 data97,118,118,118,118,118,118,118,118
  299. 10765 data98,110,110,110,110,108,105,99,15
  300. 10770 data99,118,118,118,118,54,150,198,240
  301. 10775 data100,0,0,0,0,0,15,63,127
  302. 10780 data101,15,31,63,127,255,255,255,255
  303. 10785 data102,240,248,252,254,255,255,255,255
  304. 10790 data103,0,0,0,0,0,240,252,254
  305. 10795 data104,168,168,168,168,168,168,0,0
  306. 10800 data105,170,170,170,170,170,170,0,0
  307. 10805 data106,168,168,168,168,168,168,168,168
  308. 10810 data107,162,162,162,162,162,162,162,162
  309. 10815 data108,0,0,168,168,168,168,168,168
  310. 10820 data109,170,170,170,170,170,170,170,170
  311. 10825 data110,0,0,170,170,170,170,170,170
  312. 10830 data111,0,0,129,195,255,255,255,255
  313. 10835 data112,255,255,248,6,184,191,255,255
  314. 10840 data113,0,0,1,3,15,255,255,255
  315. 10845 data114,0,0,128,192,224,255,255,255
  316. 10850 data115,0,0,0,255,255,0,0,0
  317. 10855 data116,193,182,182,128,193,227,193,193
  318. 10860 data117,129,129,129,129,255,255,255,255
  319. 10865 data118,255,219,129,195,195,129,219,255
  320. 10900 data-1
  321. 12000 fori=0to62:readq:poke50816+i,q:next
  322. 12001 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  323. 12002 data0,0,64,0,0,128,0,1,0,0,3,255,248,4,0,0,8,0,0,8,0,0,8,0,0,0,0,0
  324. 12004 fori=0to62:readq:poke50880+i,q:next
  325. 12005 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,120,0,0,254,0,1,255,128
  326. 12006 data3,255,224,7,255,248,15,255,254,31,255,252,63,255,248,127,255,240,0,0
  327. 12007 data0,0,0,0,0,0,0,0,0,0,0,0,0
  328. 12010 fori=0to62:readq:poke50944+i,q:next
  329. 12011 data0,0,64,0,64,128,2,33,0,1,36,128,0,200,76,17,8,80,18,69,32,34,38,64,36
  330. 12012 data100,48,20,162,64,8,164,128,4,153,192,5,22,40,2,20,16,5,38,0,8,169,0,4
  331. 12013 data72,192,0,80,0,0,96,0,0,96,0,0,96,0
  332. 12015 fori=0to62:readq:poke51008+i,q:next
  333. 12016 data3,252,0,2,168,0,3,92,0,3,92,0,3,92,0,3,92,0,15,255,0,15,255,0,15,255
  334. 12017 data0,15,255,208,15,255,208,15,252,0,14,168,0,7,252,0,7,252,0,3,252,0,3
  335. 12018 data252,0,2,138,0,2,138,0,0,163,128,0,0,0
  336. 12020 fori=0to62:readq:poke51072+i,q:next
  337. 12021 data0,0,0,127,251,254,127,251,254,127,249,254,0,0,0,127,63,60,127
  338. 12022 data127,190,127,127,190,62,127,190,0,0,0,127,231,254,127,239,254,127,239
  339. 12023 data254,127,207,252,0,0,0,57,255,158,125,255,222,125,255,222,125,255,220
  340. 12024 data0,0,0,255,255,255
  341. 12026 fori=0to62:readq:poke51136+i,q:next
  342. 12027 data95,255,250,95,255,250,80,0,10,80,0,10,88,0,26,88,0,26,92,0,58,92,0,58
  343. 12028 data94,0,122,94,0,122,95,0,250,95,0,250,95,129,250,95,126,250,94,255,122
  344. 12029 data93,255,186,91,255,218,87,255,234,79,255,242,127,255,254,0,0,0
  345. 12031 fori=0to62:readq:poke51200+i,q:next
  346. 12032 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,14,0,0,14,0,0,27,0,0,42,128,0
  347. 12033 data113,192,0,106,192,0,59,128,0,21,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  348. 12034 data0,0,0,0
  349. 12036 fori=0to62:readq:poke51264+i,q:next
  350. 12038 data0,0,0,0,0,0,0,0,0,1,85,128,2,170,64,2,170,0,2,175,0,2,173,0,2,174,192
  351. 12039 data2,175,192,2,175,0,3,253,0,3,255,0,0,255,0,0,242,0,0,242,0,0,242,0,3
  352. 12040 data252,0,3,252,0,0,0,0,0,0,0
  353. 12042 fori=0to62:readq:poke51328+i,q:next
  354. 12043 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,16,6,0,30,57,120,31,192,112,16,6
  355. 12044 data12,8,121,194,3,128,57,28,120,5,33,135,130,24,112,28,7,14,98,0,225,140
  356. 12045 data0,30,48,0,1,192,0,0,0,0,0,0
  357. 12047 fori=0to62:readq:poke51392+i,q:next
  358. 12048 data0,0,0,15,255,240,10,0,80,10,0,80,10,0,80,19,255,200,20,0,40,20,0,40
  359. 12049 data20,0,40,39,255,228,40,0,20,40,0,20,40,0,20,79,255,242,80,0,10,80,0,10
  360. 12050 data80,0,10,159,255,249,160,0,5,160,0,5,255,255,255
  361. 12052 fori=0to62:readq:poke51456+i,q:next
  362. 12053 data0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,76,0,0,134,0,0,18,64,0,47,160,0,110
  363. 12054 data160,0,191,64,0,156,64,0,56,0,0,68,0,1,132,0,2,8,0,5,20,0,0,0,0,0,0,0
  364. 12055 data0,0,0,0,0,0
  365. 12057 fori=0to62:readq:poke51520+i,q:next
  366. 12058 data16,0,0,21,0,0,31,64,0,31,80,0,31,213,0,31,254,64,31,255,64,31,255,64
  367. 12059 data31,255,208,31,255,244,21,85,84,7,255,244,1,255,244,0,127,244,0,23,244
  368. 12060 data0,5,244,0,1,244,0,0,116,0,0,20,0,0,4,0,0,0
  369. 12062 fori=0to62:readq:poke51584+i,q:next
  370. 12063 data0,0,16,0,0,80,0,1,240,0,7,208,0,7,208,0,95,208,1,255,208,5,255,208
  371. 12064 data31,255,208,31,255,208,21,85,80,31,255,64,31,253,0,23,212,0,31,208,0
  372. 12065 data31,64,0,29,0,0,20,0,0,16,0,0,0,0,0,0,0,0
  373. 12067 fori=0to62:readq:poke51648+i,q:next
  374. 12068 data0,0,0,0,0,0,0,0,0,0,0,0,3,255,192,2,0,64,2,239,64,2,239,64,2,15,64,2
  375. 12069 data240,64,2,247,64,2,247,64,2,7,64,2,224,64,2,239,64,2,239,64,2,0,64,2
  376. 12070 data247,64,2,247,64,2,0,64,3,255,192
  377. 12072 fori=0to62:readq:poke51712+i,q:next
  378. 12073 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,55,0,0,59,0,0
  379. 12074 data213,192,0,191,128,0,204,192,0,191,128,0,255,192,0,183,128,0,255,192,0
  380. 12075 data55,0,0,55,0,0,55,0
  381. 12077 fori=0to62:readq:poke51776+i,q:next
  382. 12078 data0,0,0,0,56,0,0,124,0,0,84,0,0,124,0,0,40,0,0,56,0,1,255,0,2,214,128,2
  383. 12079 data238,128,2,214,128,3,57,128,0,254,0,0,254,0,0,124,0,0,108,0,0,108,0,0
  384. 12080 data108,0,0,108,0,0,108,0,0,230,0
  385. 12082 fori=0to62:readq:poke51840+i,q:next
  386. 12083 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,62,0,0
  387. 12084 data28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  388. 12086 fori=0to62:readq:poke51904+i,q:next
  389. 12087 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,225,128,0,30,3,128,0,48,112,1,204,15,14
  390. 12088 data6,0,192,0,0,51,193,192,12,14,56,0,48,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  391. 12089 data0,0,0,0,0,0
  392. 12091 fori=0to62:readq:poke51968+i,q:next
  393. 12092 data0,0,0,0,0,0,0,0,0,0,0,0,0,21,84,0,74,148,1,42,100,4,169,164,18,166
  394. 12093 data164,85,90,164,106,154,164,106,154,144,106,154,124,106,153,205,106,151
  395. 12094 data240,85,80,60,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0
  396. 12096 fori=0to62:readq:poke52032+i,q:next
  397. 12097 data255,255,255,128,36,1,128,60,1,128,66,1,128,126,1,128,129,1,128,255,1
  398. 12098 data129,0,129,129,255,129,130,0,65,131,255,193,132,0,33,135,255,225,136
  399. 12099 data0,17,143,255,241,144,0,9,159,255,249,160,0,5,191,255,253,192,0,3,255
  400. 12100 data255,255
  401. 12102 fori=0to62:readq:poke52096+i,q:next
  402. 12103 data0,0,0,0,28,0,0,3,128,0,0,64,0,1,128,0,14,0,0,48,0,0,64,0,0,48,0,0,12
  403. 12104 data0,0,3,0,0,0,128,0,1,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0
  404. 12105 data0,0,0,0
  405. 12107 fori=0to62:readq:poke52160+i,q:next
  406. 12108 data0,6,0,0,24,0,0,32,0,0,48,0,0,12,0,0,6,0,0,1,0,0,3,0,0,12,0,0,48,0,0,64
  407. 12109 data0,0,96,0,0,24,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0,0,0,0,0
  408. 12111 fori=0to62:readq:poke52224+i,q:next
  409. 12112 data0,168,42,160,170,10,0,42,2,160,47,0,0,15,0,160,12,0,0,40,0,0,255,0,3
  410. 12113 data60,192,163,60,240,3,252,0,160,60,0,0,42,240,160,42,252,0,85,12,0,85
  411. 12114 data12,0,65,12,160,65,12,0,65,15,160,65,5,0,0,0
  412. 12116 fori=0to62:readq:poke52288+i,q:next
  413. 12117 data160,0,0,128,42,0,0,170,10,0,168,0,0,240,10,0,240,0,0,48,10,0,235,0,3
  414. 12118 data60,192,3,60,202,15,60,192,0,60,202,0,60,0,3,168,0,15,168,10,48,85,0
  415. 12119 data48,85,10,48,65,0,112,65,10,80,65,0,0,0,0
  416. 12121 fori=0to62:readq:poke52352+i,q:next
  417. 12122 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  418. 12123 data0,0,63,255,252,127,255,254,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0
  419. 12124 data0,0,0,0,0
  420. 12125 fori=0to62:readq:poke52416+i,q:next
  421. 12126 data0,0,0,3,192,0,7,192,0,7,128,0,7,128,0,2,128,0,7,0,0,59,128,0,47,192,0
  422. 12127 data7,224,0,14,0,0,13,240,0,14,248,0,7,124,0,7,190,0,5,111,0,2,139,128,2
  423. 12128 data130,192,7,129,64,31,255,252,31,255,252
  424. 12130 fori=0to62:readq:poke52480+i,q:next
  425. 12131 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,170,128,10,170,160
  426. 12132 data9,221,224,11,119,96,10,170,160,11,170,96,9,221,224,11,119,96,10,170
  427. 12133 data160,8,0,32,8,0,32,8,0,32,0,0,0
  428. 12139 fori=0to62:readq:poke52544+i,q:next
  429. 12140 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,1,214,0,2
  430. 12141 data33,0,4,76,128,5,144,128,4,139,0,4,100,0,7,24,0,3,128,0,1,128,0,0,0,0
  431. 12142 data0,0,0
  432. 12144 fori=0to62:readq:poke52608+i,q:next
  433. 12145 data0,0,0,0,0,0,0,120,0,0,48,0,0,48,0,0,120,0,0,180,0,1,50,0,2,121,0,4
  434. 12146 data120,128,8,252,64,8,212,64,9,182,64,5,122,128,3,119,0,3,183,0,3,203,0
  435. 12147 data1,222,0,0,220,0,0,120,0,0,0,0
  436. 12149 fori=0to62:readq:poke52672+i,q:next
  437. 12150 data0,0,0,0,0,0,0,255,192,0,255,192,0,255,192,1,128,96,1,128,96,1,128,96
  438. 12151 data3,0,48,3,0,48,3,0,48,6,0,24,6,0,24,6,0,24,12,0,12,12,0,12,12,0,12,15
  439. 12152 data255,252,13,154,236,10,205,148,15,255,252
  440. 12154 fori=0to62:readq:poke52736+i,q:next
  441. 12155 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,0,0,21,0,0,38,0,0,21,0,0,42,0,0,21
  442. 12156 data0,0,170,128,0,85,64,0,170,128,0,85,64,0,170,128,0,85,64,0,0,0,0,0,0,0
  443. 12157 data0,0,0,0,0
  444. 12159 fori=0to62:readq:poke52800+i,q:next
  445. 12160 data0,0,0,0,0,0,0,127,128,0,125,128,0,118,128,0,239,192,0,237,192,0,254
  446. 12161 data192,1,166,224,1,223,224,1,254,224,3,157,112,3,127,240,3,245,240,6,251
  447. 12162 data184,7,55,24,7,255,248,0,0,0,0,0,0,0,0,0,0,0,0
  448. 12164 fori=0to62:readq:poke52864+i,q:next
  449. 12165 data0,24,0,0,90,0,0,126,0,0,126,0,0,126,0,0,60,0,0,60,0,0,60,0,0,24,0,1
  450. 12166 data255,128,3,110,192,3,118,192,3,110,192,1,223,128,0,126,0,0,126,0,0,102
  451. 12167 data0,0,102,0,0,102,0,1,255,128,7,255,224
  452. 15000 return
  453. 19000 ifap>7then19100
  454. 19001 ifap=7then19200
  455. 19002 ifap=6thengosub19035
  456. 19003 poke53270,peek(53270)or16:poke53283,9:poke53282,6
  457. 19004 printtab(10)"...................."
  458. 19006 printtab(10)"...................."
  459. 19008 printtab(10)"...................."
  460. 19010 printtab(10)".....LMNOP...LOP...."
  461. 19012 fort=1to10:printtab(10)"KKKKKKKKKKKKKKKKKKKK":next
  462. 19031 gosub21050:return
  463. 19035 pokev+21,peek(v+21)or128:poke50175,27:pokev+14,145:pokev+15,90:pokev+46,9
  464. 19036 pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128:return
  465. 19100 ifap=15orap=18orap=19orap=20orap=21orap=29orap=46orap=52then19110
  466. 19102 goto19999
  467. 19110 printtab(12)"&%............^\"
  468. 19111 printtab(12)"..Q%........V\.."
  469. 19112 printtab(12)"..,.Q%....V\,..."
  470. 19113 printtab(12)"I#R_,.1//0,.XW(J"
  471. 19114 printtab(12)".,.,{CBM--}S{SHIFT--}CC~YJ-,.."
  472. 19115 printtab(12)".,.,..{CBM-*}  {CBM-K}..-,.."
  473. 19116 printtab(12)"//0/0/{CBM-*}  {CBM-K}/1/1//"
  474. 19117 printtab(12)"..,.U\{CBM-I}{CBM-G}{CBM-+}{CBM-T}&{SHIFT-+}.-.."
  475. 19118 printtab(12)"..UT.+....2,&{SHIFT-+}.."
  476. 19120 printtab(12)"^T.,+......Z.,&%"
  477. 19121 printtab(12)".,.+........2,.."
  478. 19122 printtab(12)".,+..........Z.."
  479. 19123 printtab(12)".+............2."
  480. 19124 printtab(12)"+..............2"
  481. 19129 ifap=19then20015
  482. 19002 gosub21032:return
  483. 19130 gosub21032:return
  484. 19200 poke53270,peek(53270)or16:poke53282,7:poke53283,9
  485. 19204 printtab(10)"{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}"
  486. 19205 printtab(10)"{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}"
  487. 19206 printtab(10)"{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}"
  488. 19207 fort=1to3:printtab(10)"{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}":next
  489. 19210 printtab(10)"{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-D}{CBM-S}{CBM-S}{CBM-S}   {CBM-S}{CBM-S}{CBM-S}{CBM-D}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}"
  490. 19211 printtab(10)"{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}   {CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}"
  491. 19212 printtab(10)"{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}   {SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}"
  492. 19213 fort=1to4:printtab(10)"KKKKKKKKKKKKKKKKKKKK":next
  493. 19217 ifx6=1thenpokev+21,peek(v+21)or128:poke50175,31:pokev+14,168:pokev+15,108
  494. 19218 pokev+46,9
  495. 19219 gosub21050
  496. 19220 return
  497. 19999 poke53270,peek(53270)and239
  498. 20000 printtab(10)"&%................^\"
  499. 20001 printtab(10)"..&%............^\.."
  500. 20002 printtab(10)"....1///1///1//0...."
  501. 20003 printtab(10)"I#!_-...-...-..,*)(J"
  502. 20004 printtab(10)".,..1/1///1///10.,.."
  503. 20005 printtab(10)".,..-.-...-...-,.,.."
  504. 20006 printtab(10)"////1///1///1//0////"
  505. 20007 printtab(10)"....-...-...-..,...."
  506. 20008 printtab(10)"..^\1/1///1///10&%.."
  507. 20009 printtab(10)"^T..-.-...-...-,.,&%"
  508. 20010 printtab(10)".,.+////////////2,.."
  509. 20011 printtab(10)".,+..............Z.."
  510. 20012 printtab(10)".+................2."
  511. 20013 printtab(10)"+..................2"
  512. 20014 ifap=50thenprint"{CBM-J}{CBM-J}{CBM-J}"
  513. 20015 ifap=19orap=32orap=55then20017:rem treppe
  514. 20016 goto20020
  515. 20017 pokev+21,peek(v+21)or128:poke50175,35:pokev+14,160:pokev+15,145
  516. 20018 pokev+29,peek(v+29)or128:pokev+46,0:ifap=19then19130
  517. 20020 ifap<>33andap<>56andap<>58then20900
  518. 20021 pokev+21,peek(v+21)or128:poke50175,45:pokev+14,159:pokev+15,97
  519. 20022 pokev+46,0:pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or129
  520. 20023 print".......+..2.+....2"
  521. 20024 print"............"
  522. 20900 ifap=10then21001
  523. 21000 ifpn(ap,1)=0then21005
  524. 21001 poke49363,55:poke49364,56:poke49403,52:poke49404,48:poke49443,54:poke49444,48
  525. 21002 poke49483,68:poke49484,44:poke49523,70:poke49524,57:poke49563,53:poke49564,44
  526. 21003 poke49603,27:poke49604,71:poke49643,68:poke49644,46:poke49683,51
  527. 21005 ifpn(ap,2)=0then21010
  528. 21006 poke49379,69:poke49380,65:poke49419,49:poke49420,29:poke49459,49:poke49460,54
  529. 21007 poke49499,45:poke49500,68:poke49539,64:poke49540,62:poke49579,45:poke49580,61
  530. 21008 poke49619,72:poke49620,60:poke49659,46:poke49660,68:poke49700,59
  531. 21010 ifpn(ap,3)=0then21030
  532. 21013 poke49410,36:poke49411,67:poke49412,67:poke49413,39:poke49449,48:poke49450,44
  533. 21014 poke49451,32:poke49452,32:poke49453,45:poke49454,49:poke49489,44:poke49490,44
  534. 21015 poke49491,32:poke49492,32:poke49493,45:poke49529,48:poke49530,44:poke49414,45
  535. 21016 poke49531,100:poke49532,103:poke49533,45:poke49534,49:poke49569,44:poke49570,43
  536. 21017 poke49571,46:poke49572,46:poke49573,50:poke49574,45:poke49610,46:poke49611,46
  537. 21018 poke49612,46:poke49613,46:poke49409,44
  538. 21030 z1=0:ifin(10,1)=aporin(23,1)=aporin(26,1)=aporin(28,1)=apthen21034
  539. 21031 ifin(35,1)=aporin(36,1)=apthen21034
  540. 21032 ifin(13,1)=aporin(17,1)=aporin(34,1)=aporin(42,1)=apthenz1=1:goto21036
  541. 21033 goto21050
  542. 21034 print"                "
  543. 21035 pokev+10,161:pokev+11,97:pokev+29,peek(v+29)or32
  544. 21036 pokev+21,peek(v+21)or32:poke50173,39:pokev+44,11:pokev+23,peek(v+23)or32
  545. 21037 ifz1=1thenpokev+10,161:pokev+11,78:pokev+29,peek(v+29)or32
  546. 21038 ifz1=1thenprint"                    "
  547. 21050 ifin(1,1)<>apthen21060
  548. 21051 pokev+21,peek(v+21)or1:poke50168,26:pokev+0,200:pokev+1,120:pokev+39,11
  549. 21052 pokev+23,peek(v+23)or1:pokev+29,peek(v+29)or1
  550. 21060 ifin(2,1)<>apthen21070
  551. 21061 pokev+21,peek(v+21)or128:poke50175,29:pokev+14,150:pokev+15,110
  552. 21062 pokev+46,0:pokev+37,9:pokev+38,1:pokev+23,peek(v+23)or128:pokev+28,128
  553. 21063 pokev+29,peek(v+29)or128
  554. 21070 ifin(3,1)<>apthen21080
  555. 21071 pokev+21,peek(v+21)or64:poke50174,28:pokev+12,160:pokev+13,92
  556. 21072 pokev+45,15:pokev+29,peek(v+29)or64:pokev+23,peek(v+23)or64
  557. 21080 ifin(4,1)<>apthen21090
  558. 21081 pokev+21,peek(v+21)or128:poke50175,30:pokev+14,168:pokev+15,108
  559. 21082 pokev+46,9
  560. 21090 ifin(5,1)<>apthen21100
  561. 21091 ifin(14,1)<>-1andin(14,1)<>35then21095
  562. 21092 pokev+21,peek(v+21)or128:poke50175,53:pokev+46,5:pokev+14,195
  563. 21093 pokev+15,130:pokev+29,peek(v+29)or128:goto21100
  564. 21095 x8=1:pokev+21,peek(v+21)or128:poke50175,46:pokev+46,3
  565. 21096 pokev+14,190:pokev+15,140:pokev+29,128:goto164
  566. 21100 ifin(6,1)<>apthengoto21110
  567. 21101 pokev+21,peek(v+21)or8:poke50171,33:pokev+28,8:pokev+6,141:pokev+7,103
  568. 21102 pokev+42,11:pokev+37,0:pokev+38,15
  569. 21110 ifin(7,1)<>apthen21120
  570. 21115 print",H10-,-,//"
  571. 21120 ifin(9,1)<>apthen21130
  572. 21121 ifap=19orap=51then21130
  573. 21122 pokev+21,peek(v+21)or2:poke50169,34:pokev+2,150:pokev+3,140
  574. 21123 pokev+29,peek(v+29)or2:pokev+40,0
  575. 21130 ifin(11,1)<>apthen21140
  576. 21131 pokev+21,peek(v+21)or64:poke50174,37:pokev+12,235:pokev+13,122
  577. 21132 pokev+28,64:pokev+37,0:pokev+38,9:pokev+23,peek(v+23)or64
  578. 21140 ifin(12,1)<>apthen21150
  579. 21141 pokev+21,peek(v+21)or64:poke50174,38:pokev+12,111:pokev+13,119
  580. 21142 pokev+28,64:pokev+37,0:pokev+38,9:pokev+23,peek(v+23)or64
  581. 21150 ifin(14,1)<>apthen21160
  582. 21151 pokev+21,peek(v+21)or4:poke50170,32:pokev+4,170:pokev+5,130
  583. 21152 pokev+41,12:pokev+29,peek(v+29)or4:pokev+23,peek(v+23)or4
  584. 21160 ifin(15,1)<>apthen21170
  585. 21161 pokev+21,peek(v+21)or128:poke50175,36:pokev+14,170:pokev+15,143
  586. 21162 pokev+46,0:pokev+29,peek(v+29)or128
  587. 21170 ifin(16,1)<>apthen21180
  588. 21171 print"";tab(24)"{CBM-P}"
  589. 21180 ifin(18,1)<>apandin(19,1)<>apthen21200:rem spruenge i.d. decke
  590. 21181 pokev+21,peek(v+21)or128:poke50175,43:pokev+14,170:pokev+15,56
  591. 21182 pokev+46,0:pokev+29,peek(v+29)or128
  592. 21200 ifin(20,1)<>apthen21210
  593. 21201 ifap=31thenpoke55599,8:goto21210
  594. 21202 pokev+21,peek(v+21)or8:poke50171,42:pokev+6,180:pokev+7,150:pokev+42,8
  595. 21210 ifin(21,1)<>apthen21220
  596. 21211 pokev+21,peek(v+21)or128:ifin(46,3)=0thenpokev+14,150:pokev+15,121:goto21213
  597. 21212 pokev+14,155:pokev+15,115
  598. 21213 poke50175,44:pokev+46,9:pokev+37,0:pokev+38,1:pokev+23,peek(v+23)or128
  599. 21214 pokev+29,peek(v+29)or128:poke49209,50:poke49212,50:poke49250,47:pokev+28,128
  600. 21215 poke49251,47:poke49252,47:poke49210,45
  601. 21220 ifin(22,1)<>apthen21230
  602. 21221 pokev+21,peek(v+21)or128:poke50175,41
  603. 21222 pokev+14,190:pokev+15,105:pokev+45,14:pokev+46,7
  604. 21223 pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128
  605. 21230 ifin(24,1)<>apthen21240
  606. 21231 print"1/1///10-.-...-,"
  607. 21232 print"{CBM-R}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-E}"
  608. 21240 ifin(25,1)<>apthen21250
  609. 21241 pokev+21,peek(v+21)or192:poke50174,48:poke50175,49:pokev+45,7:pokev+46,7:pokev+12,138
  610. 21242 pokev+37,0:pokev+38,12:pokev+13,98:pokev+15,98:pokev+28,192:pokev+23,peek(v+23)or192
  611. 21243 ify2=1thenpokev+12,135:pokev+14,208:pokev+29,32:poke50173,31:pokev+44,9:goto21247
  612. 21244 print"........................":pokev+14,186
  613. 21245 print"......................."
  614. 21246 pokev+29,peek(v+29)or192:print"............":goto21250
  615. 21247 print"...      ......      ..."
  616. 21248 print"...      ......      ..."
  617. 21249 print"...      ..."
  618. 21250 ifin(27,1)<>apthen21260
  619. 21251 pokev+21,peek(v+21)or128:poke50175,51:pokev+46,12:pokev+14,200
  620. 21252 pokev+15,120:pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128
  621. 21260 ifin(29,1)<>apthen21270
  622. 21261 pokev+21,peek(v+21)or192:poke50174,52:poke50175,54
  623. 21262 pokev+12,121:pokev+13,105:pokev+14,210:pokev+15,105:pokev+28,64
  624. 21264 pokev+45,8:pokev+46,15:pokev+37,11:pokev+38,7
  625. 21265 pokev+23,peek(v+23)or192:pokev+29,peek(v+29)or64
  626. 21270 ifin(30,1)<>apthen21280
  627. 21272 pokev+21,peek(v+21)or24:poke50171,50:poke50172,50:pokev+6,142:pokev+7,140
  628. 21273 pokev+8,172:pokev+9,140:pokev+42,8:pokev+43,8:pokev+29,peek(v+29)or24
  629. 21280 ifin(33,1)<>apthen21290
  630. 21281 print"2-....,+//////"
  631. 21290 ifin(37,1)<>apthen21300
  632. 21291 pokev+21,peek(v+21)or128:poke50175,58:pokev+46,12:pokev+14,138
  633. 21292 pokev+15,105:pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128
  634. 21300 ifin(38,1)<>apthen21310
  635. 21301 pokev+21,peek(v+21)or208:pokev+28,64:poke50175,55:poke50172,57
  636. 21302 poke50174,56:pokev+12,160:pokev+13,125:pokev+14,160:pokev+15,125:pokev+46,12
  637. 21303 pokev+9,125:pokev+45,9:pokev+37,0
  638. 21304 pokev+43,12:pokev+23,208:pokev+29,peek(v+29)or208
  639. 21305 pokev+8,160:ifin(45,1)=-1ory3=1thenpokev+8,180
  640. 21307 print"          "
  641. 21310 ifin(39,1)<>apthen21320
  642. 21311 pokev+21,peek(v+21)or128:poke50175,30:pokev+46,9:pokev+14,172
  643. 21312 pokev+15,98:pokev+23,peek(v+23)or128
  644. 21314 print"1..0-..,-..,"
  645. 21315 print"-..,-..,"
  646. 21318 print"+1////02"
  647. 21320 ifin(40,1)<>apthen21330
  648. 21321 pokev+21,peek(v+21)or128:poke50175,52:pokev+28,128:pokev+46,8:pokev+37,11
  649. 21322 pokev+38,7:pokev+14,160:pokev+15,110:pokev+23,peek(v+23)or128
  650. 21323 pokev+29,peek(v+29)or128
  651. 21330 ifin(44,1)<>apthen21340
  652. 21331 print"{CBM-A}"
  653. 21340 ifin(45,1)<>apthen21350
  654. 21341 pokev+21,peek(v+21)or32:pokev+28,peek(v+28)or32:pokev+44,14:pokev+37,0
  655. 21342 pokev+38,7:pokev+29,peek(v+29)or32:pokev+10,160:pokev+11,122:poke50173,40
  656. 21350 ifin(46,1)<>apthen21370:rem gasmaske
  657. 21360 print"{CBM-H}"
  658. 21370 ifin(41,1)<>apthen21500
  659. 21372 ifap=57then21500
  660. 21375 print"{CBM-L}"
  661. 21500 return
  662. 30000 pokev+21,0:print"sie tragen bei sich"
  663. 30010 fori=1to46
  664. 30020 ifin(i,1)=-1thenprint""it$(i)
  665. 30025 next
  666. 30026 print"space druecken"
  667. 30030 geta$:ifa$<>" "then30030
  668. 30040 ifa$=" "thengoto160
  669. 34000 pokev+21,0:printchr$(14),"":input"Filename";e$
  670. 34005 open 1,8,15,"s:"+e$:close1
  671. 34010 open2,8,2,e$+",w"
  672. 34020 fori=1to58
  673. 34030 print#2,pn(i,1):print#2,pn(i,2):print#2,pn(i,3):print#2,pn(i,4)
  674. 34035 print#2,pn(i,5):print#2,pn(i,6):next
  675. 34040 fori=1to46
  676. 34050 print#2,in(i,1):print#2,in(i,2):print#2,in(i,3):next
  677. 34060 print#2,ap:print#2,x1:print#2,x2:print#2,x4:print#2,x5:print#2,x6
  678. 34070 print#2,x9:print#2,y1:print#2,y2:print#2,y3:print#2,y4:print#2,ge
  679. 34080 close2:goto50300
  680. 35000 print"":input"Filename";e$:kk=1
  681. 35005 open2,8,2,e$
  682. 35010 fori=1to58
  683. 35020 input#2,pn(i,1),pn(i,2),pn(i,3),pn(i,4),pn(i,5),pn(i,6):next
  684. 35030 fori=1to46
  685. 35040 input#2,in(i,1),in(i,2),in(i,3):next
  686. 35050 input#2,ap,x1,x2,x4,x5,x6,x9,y1,y2,y3,y4,ge
  687. 35060 close2:return
  688. 39900 datagehe,zerstoere,oeffne,klopfe,frage,hacke,toete,krieche,werfe,schiebe
  689. 39910 datadrehe,klettere,nimm,verliere,ziehe,list,save,stop
  690. 39920 dataspitzhacke,beduine,strauch,zugemauerter eingang,schlange,statue,hebel
  691. 39925 datatuer nach westen,seil,tuer nach norden,durchgang,durchgang
  692. 39930 datatuer nach norden,tonkrug mit essen,skorpion,pfeil,tuer nach norden
  693. 39935 databeschaedigte decke,spruenge in der decke,diamant,toter grabraeuber
  694. 39940 datastatue,tuer nach norden,loch,relief,tuer nach norden,horus
  695. 39945 datatuer nach norden,schaetze,holzbalken,tuer nach westen,tuer
  696. 39950 dataoeffnung in der decke,tuer nach norden,tuer nach norden
  697. 39955 datatuer nach norden,osirisstatue,sarkophag,zugemauerter ausgang
  698. 39960 dataholzschrein,amulett,tuer nach norden,tuer nach sueden,schluessel
  699. 39970 datatotenmaske,gasmaske,giftige gase,falltuer,schritte,sonnenaufgang
  700. 39975 datageheimgang,auge,wand,treppe
  701. 39985 data160,0,162,0,142,32,208,142,33,208,232,234,224,16,208,244,200,192,255
  702. 39990 data208,237,169,0,141,32,208,141,33,208,96
  703. 40000 data3,4,2,0,0,0,2,2,2,1,0,0,3,1,3,0,0,0,1,0,5,0,0,0,0,0,0,4,0,0
  704. 40001 data5,0,7,0,0,0,0,0,0,6,0,0,9,17,15,0,0,0,10,8,0,0,0,0,0,9,0,0,0,0
  705. 40002 data0,10,12,0,0,0,0,13,0,11,0,0,12,0,0,0,0,0,0,0,20,0,0,0,0,0,0,8,0,0
  706. 40003 data0,0,0,15,0,0,8,0,18,0,0,0,0,0,19,17,0,0,0,0,0,18,0,58,0,0,21,14,0,0
  707. 40004 data0,0,0,20,0,0,27,23,0,21,0,0,22,24,0,26,0,0,23,0,0,0,0,0,26,0,24,0,0,0
  708. 40005 data0,25,23,0,0,0
  709. 40006 data0,22,0,28,0,0,31,0,27,29,0,0,0,0,28,0,0,0,0,0,0,0,0,0,0,28,0,30,0,0
  710. 40007 data0,0,0,31,0,33,34,38,0,36,32,0,0,33,0,35,0,0,55,36,34,0,0,0,35,37,33,0
  711. 40008 data0,0,36,41,0,0,0,0,33,0,0,0,0,0,0,40,46,0,0,0,39,0,0,0,0,0,37,42,0,0,0
  712. 40009 data0,41,0,0,0,0,0,0,44,48,0,0,0,43,50,49,0,0,0,49,0,0,0,0,0,0,0,51,39
  713. 40010 data0,0,0,0,0,40,0,0,0,49,0,43,0,0,48,45,0,44,0,0,44,0,0,38,0,0,0,0,0,46,0
  714. 40011 data0,0,0,0,47,0,0,0,0,0,52,0,0,0,0,0,51,0,0,0,35,0,0,0,56,0,57,0,0,55,0
  715. 40012 data56,0,0,0,0,0,0,0,0,0,19,0
  716. 40025 data4,1,1,5,0,1,7,0,1
  717. 40027 data7,0,0,35,0,1,10,1,1
  718. 40029 data10,0,0,10,0,1,12,1,1
  719. 40030 data13,0,1,0,0,0
  720. 40031 data14,0,1,15,0,1,16,1,1,16,0,0
  721. 40032 data21,0,0
  722. 40033 data21,0,1,23,0,1
  723. 40034 data24,0,1,25,1,1
  724. 40035 data27,1,1,31,0,1,31,0,1
  725. 40036 data37,0,1
  726. 40037 data40,0,1,42,0,1,42,0,1
  727. 40038 data38,0,1,47,0,0,48
  728. 40039 data1,1,50,0,1,50,0,0
  729. 40040 data51,0,1,52,0,1,0,0,0
  730. 40041 data47,0,1,52,0,1,53,0,1
  731. 40043 data54,0,1,57,0,1,0,1,1
  732. 40044 data19,0,1,25,0,1,58,1,1,53,1,0,27,1,0
  733. 45000 poke53270,peek(53270)or16:poke53283,9:poke53282,7
  734. 45005 poke53280,0:poke53281,9
  735. 45010 print"    p h a r a o s   g r a v e"
  736. 45020 print"           a d v e n t u r e             "
  737. 45030 print"                   ..
  738.  
  739. 45031 print"                  .//.
  740.  
  741. 45032 print"                 .////.
  742.  
  743. 45033 print"                .//////.
  744.  
  745. 45034 print"               .////////.
  746.  
  747. 45035 print"              .//////////.
  748.  
  749. 45036 print"             .////////////.
  750.  
  751. 45037 print"            .//////////////.
  752.  
  753. 45038 print"           .////////////////.
  754.  
  755. 45039 print"          .//////////////////.
  756.  
  757. 45040 print"         .////////////////////.
  758.  
  759. 45041 print"        .//////////////////////.
  760.  
  761. 45050 print"                   by                   "
  762. 45060 print"            wolfgang rausch            "
  763. 45100 gosub12000:gosub30
  764. 45110 print"",chr$(14):poke53270,peek(53270)and239
  765. 45112 print"N : Neues Spiel beginnen"
  766. 45113 print"A : Altes Spiel fortsetzen"
  767. 45114 getx$:ifx$="n"thenda=1:goto45120
  768. 45116 ifx$="a"thengosub35000:gosub60:goto45120
  769. 45118 ifx$<>"a"andx$<>"n"then45114
  770. 45120 print"Ziel des Spiels ist es eine Pyramide"
  771. 45125 print"zu erforschen und die wertvolle"
  772. 45127 print"Totenmaske des Pharaos zu finden."
  773. 45130 print"Folgende Verben versteht der Computer:"
  774. 45132 print"gehe,nimm,verliere,oeffne,toete"
  775. 45134 print"zerstoere,klopfe,frage,werfe,drehe"
  776. 45136 print"hacke,krieche,werfe,schiebe,klettere"
  777. 45137 print"list,save,stop
  778.  
  779. 45140 print"Nach jedem eingegebenen Wort muss"
  780. 45142 print"'RETURN' gedrueckt werden."
  781. 45144 print"Alle Nomen koennen auf 5,alle Verben"
  782. 45146 print"auf 4 Buchstaben abgekuerzt werden."
  783. 45148 print"Bei Richtungsangaben genuegt ein "
  784. 45150 print"Buchstabe.
  785.  
  786. 45152 print"z.B.:GEHE 'RETURN'     N 'RETURN'"
  787. 45154 print"LIST zeigt alle Gegenstaende, die"
  788. 45155 print"man bei sich traegt (maximal 3)."
  789. 45157 print"SAVE speichert den Spielstand auf"
  790. 45158 print"Kassette ab."
  791. 45160 ifda=1thengosub60
  792. 45170 print"'SPACE' druecken"
  793. 47000 getx$:ifx$<>" "then47000
  794. 47010 ifx$=" "thenprintchr$(142),""
  795. 47020 ifkk=1then155
  796. 47025 goto150
  797. 49000 gosub5600:print"sie sind ausserhalb":gosub5800
  798. 49002 ifin(45,1)<>-1then49050
  799. 49005 printchr$(14),"   Sie haben es geschafft die goldene"
  800. 49010 print"   Totenmaske des Pharaos zu finden"
  801. 49020 print"   und hoechste Ehrungen sind ihnen   "
  802. 49030 print"   gewiss,"
  803. 49040 print"   doch der Fluch des Pharaos wird"
  804. 49045 print"   sie fuer immer verfolgen.":goto50300
  805. 49050 print"   Sie haben es zwar geschafft, die"
  806. 49055 print"   Pyramide lebend zu verlassen, doch"
  807. 49060 print"   sie haben die goldene Totenmaske"
  808. 49065 print"   nicht gefunden.":goto50300
  809. 50100 rem
  810. 50105 pokev+14,190:pokev+15,130
  811. 50110 forf2=135to155step2:poke50175,46:fort=1to100:next:pokev+15,f2
  812. 50120 poke50175,47:fort=1to100:next:next
  813. 50121 fort=1to30:sys866:next:goto50210
  814. 50190 printchr$(14)"   sie haben sich hoffnungslos verirrt":goto50300
  815. 50200 printchr$(14)"   sie haben den halt verloren und sind    hinuntergefallen"
  816. 50201 goto50300
  817. 50202 printchr$(14)"   sie sind in eine fallgrube gestuerzt":gosub5600:goto50300
  818. 50203 gosub5600:printchr$(14)"   die "it$(54)" ist eingestuerzt":goto50300
  819. 50204 gosub5600:printchr$(14)"   die decke ist heruntergebrochen":goto50300
  820. 50206 printchr$(14)"   ein herabfallender stein hat sie er     schlagen":goto50300
  821. 50207 printchr$(14)"   "it$(47)" haben sie getoetet":goto50300
  822. 50208 fort=1to20:sys866:next:gosub5600:print"   sie wurden von hinten gepackt und "
  823. 50209 print"   erwuergt":goto50300
  824. 50210 gosub5600:printchr$(14)"   die "it$(5)" hat sie gebissen":goto50300
  825. 50211 gosub5600:printchr$(14)"   eine "it$(48)" hat sich unter ihnen"
  826. 50212 print"   geoeffnet":goto50300
  827. 50213 gosub5600:printchr$(14)"   sie haben einen mechanismus "
  828. 50214 print"   ausgeloest ,wodurch ein "it$(16)" aus "
  829. 50215 print"   der wand geschossen wurde":goto50300
  830. 50300 printchr$(14)"Noch ein Versuch? (j/n)"
  831. 50310 geta$:ifa$<>"j"anda$<>"n"then50310
  832. 50320 ifa$="j"thenclr:printchr$(142)"":run
  833. 50330 sys64738
  834. 50700 forx=1to20:pokev+8,160+x:fort=1to200:next:next:in(45,3)=1:gosub5900:goto164
  835. 50720 ti$="000000"
  836. 50725 printa4$"kommando ?"
  837. 50730 poke631,0:poke198,0
  838. 50731 u=peek(631)
  839. 50740 ifti$="000002"then50770
  840. 50750 ifu=71thenpoke631,u:goto250
  841. 50760 ifu>0andu<>71then50770
  842. 50765 goto50731
  843. 50770 forx=1to10:pokev+13,125-x:fort=1to300:next:next:fort=1to20:sys866:next
  844. 50780 gosub5600:printchr$(14)"":goto50300
  845. 50800 ti$="000000":poke631,0
  846. 50805 printa4$"kommando ?"
  847. 50806 poke631,0:poke198,0
  848. 50807 u=peek(631)
  849. 50808 ifu=71oru=84thenpoke631,u:goto250
  850. 50809 ifu>0andu<>71andu<>84then50820
  851. 50810 ifti$="000002"then50820
  852. 50815 goto50807
  853. 50820 forx=1to10:pokev+15,140+x:pokev+14,170-x/2:fort=1to100:next:next
  854. 50825 fort=1to10:sys866:next:gosub5600
  855. 50830 printchr$(14)"   der "it$(15)" hat sie gestochen":goto50300
  856. 52000 printa3$"sie hoeren "it$(49)" hinter sich":c=c+1
  857. 52004 forc1=1to4
  858. 52005 forla=5to0step-.4
  859. 52010 pokesi+24,la:pokesi+5,8*16+10:pokesi+6,15*16:pokesi+1,15:pokesi+0,0
  860. 52020 pokesi+4,129:next
  861. 52025 pokesi+4,0:pokesi+5,0
  862. 52030 fort=1to800:next:next:return
  863.